home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 023a / prop_man.zip / STATE.SAB < prev    next >
Text File  |  1991-07-15  |  4KB  |  169 lines
  1. LABEL START
  2.   SET NULL " "
  3.   CLS
  4.   LABEL START2
  5.   SET ERROR MESSAGES OFF
  6.   SET MESSAGES OFF
  7.   SET BELL OFF
  8.   SET ESCAPE ON
  9.   GOTO SELECTION
  10. LABEL TEST1
  11. CLS
  12. DISPLAY CP.DIS
  13. WRITE "STATE.SAB" AT 2,36
  14. WRITE .USE AT 2,55
  15.   WRITE "XXX STATEMENT PRINT TEST" AT 7,30
  16.   FILLIN Y/N USING "WOULD YOU LIKE TO PRINT A XXX STATEMENT PRINT TEST " AT 20,1
  17.     LABEL AGAIN
  18.     IF Y/N = "Y" THEN
  19.       OUTPUT PRINTER
  20.       PRINT NOT.TST WHERE LIMIT = 1
  21.       OUTPUT SCREEN
  22.     ENDIF
  23.   IF Y/N = "Y" THEN
  24.   FILLIN Y/N USING "Would You Like To Try Another Test Setup? " +
  25.     AT 21,1
  26.     IF Y/N = "Y" OR Y/N = "YES" THEN
  27.       GOTO AGAIN
  28.     ENDIF
  29.   ENDIF
  30.   CLS
  31.   goto .TO/FROM
  32. LABEL SELECTION
  33.   CLS
  34. DISPLAY CP.DIS
  35. WRITE "STATE.SAB"  AT 2,36
  36. WRITE .USE AT 2,55
  37.   WRITE "Select Type Of Statement You Would Like To Print" AT 7,12
  38.   WRITE "   1.    Single Statement By Address Code                " AT 9,10
  39.   WRITE "   2.    Statement For A Group (I.E. MEN02624)           " AT 10,10
  40.   WRITE "   3.    Statement For All Accounts With Past Due Balance" AT 11,10
  41.   WRITE "   4.    Batch Statements                                " AT 12,10
  42.   WRITE "   5.    Exit Statement Program                          " AT 13,10
  43.   FILLIN SELECT USING "Enter Selection  -> " AT 15,12
  44.     IF SELECT < 1 OR SELECT > 5 THEN
  45.       GOTO SELECTION
  46.       ELSE
  47.       GOTO .SELECT
  48.     ENDIF
  49. LABEL 1
  50.   CLS
  51. DISPLAY CP.DIS
  52. write "STATE.SAB" AT 2,36
  53. WRITE .USE AT 2,55
  54.   WRITE "Single Statement Generation" AT 7,20
  55.   SET ERROR VARIABLE errval
  56.   FILLIN ADDCODE USING "Enter Address Code " AT 10,4
  57.   SET POINTER #1 errptr2 FOR CUR.MAST WHERE ADD.CODE EQ .ADDCODE
  58.     IF ERRPTR2 EQ 0 THEN
  59.     SET VAR TO/FROM TO GOOD1
  60.       GOTO TEST1
  61.     LABEL GOOD1
  62.     OUTPUT PRINTER
  63.     PRINT NOTICE WHERE ADD.CODE = .ADDCODE AND LIMIT = 1
  64.     OUTPUT SCREEN
  65.       GOTO END1
  66.       ELSE
  67.       WRITE "Address Code Not Found To Exist" AT 23,24
  68.       BEEP;BEEP
  69.     FILLIN Y/N USING "Would You Like To Try Again? " AT 24,26
  70.     IF Y/N = "Y" OR Y/N = "YES" THEN
  71.       CLS
  72.       WRITE "O.K." AT 12,40
  73.       GOTO 1
  74.       ELSE
  75.       GOTO END1
  76.       ENDIF
  77.     ENDIF
  78.     LABEL END1
  79.       GOTO SELECTION
  80. LABEL 2
  81.   CLS
  82. DISPLAY CP.DIS
  83. write "STATE.SAB" AT 2,36
  84. WRITE .USE AT 2,55
  85.   WRITE "PROCESSING STATEMENT FOR A GROUP OF ACCOUNTS" AT 7,17
  86.   FILLIN CODE USING "ENTER GROUP CODE: " AT 15,1
  87.   SET V TO/FROM TO 2TST
  88.   GOTO TEST1
  89.     LABEL 2TST
  90.     SET POINTER #1 END FOR CUR.MAST WHERE ADD.CODE CONTAINS .CODE
  91.     IF END = 0 THEN
  92.     OUTPUT PRINTER
  93.     PRINT NOTICE WHERE ADD.CODE CONTAINS .CODE and tot.due > 0
  94.     OUTPUT SCREEN
  95.       ELSE
  96.       WRITE "SELECTION NOT FOUND IN CURRENT MASTER FILE PLEASE RE-INPUT" +
  97.         AT 15,1
  98.       GOTO 2
  99.     ENDIF
  100.       GOTO SELECTION
  101. LABEL 3
  102.   CLS
  103. DISPLAY CP.DIS
  104. WRITE "STATE.SAB" AT 2,36
  105. WRITE .USE AT 2,55
  106.   WRITE "PROCESSING STATEMENT FOR ALL ACCOUNTS WITH PASTDUE BALANCE" at 7,10
  107.   SET V TO/FROM TO 3GOOD
  108.   GOTO TEST1
  109.     LABEL 3GOOD
  110.     OUTPUT PRINTER
  111.     PRINT NOTICE SORTED BY ADD.CODE WHERE PAST.DUE > 0
  112.     OUTPUT SCREEN
  113.   GOTO SELECTION
  114. LABEL 4
  115.   cls
  116.   REMOVE TABLE STATEMNT
  117.   PROJECT STATEMNT FROM CUR.MAST USING ADD.CODE WHERE ADD.CODE FAILS
  118.   LABEL RETRY
  119.   LOAD STATEMNT WITH PROMPTS
  120.   SET V ERROR TO "N"
  121.   CLS
  122.   WRITE "CHECKING FOR INCORRECT ADDRESS CODES -- PLEASE WAIT" AT 15,10
  123.   SET POINTER #3 END FOR STATEMNT
  124.     WHILE END = 0 THEN
  125.     SET V CODE TO ADD.CODE IN #3
  126.     SET POINTER #2 EO2 FOR CUR.MAST WHERE ADD.CODE = .CODE
  127.       IF EO2 > 0 THEN
  128.         CLS
  129.       SHOW V CODE
  130.       WRITE "NOT FOUND TO EXIST
  131.       DELETE ROWS FROM STATEMNT WHERE ADD.CODE = .CODE
  132.       SET V ERROR TO "Y"
  133.       SET V EO2 TO 0
  134.       ENDIF
  135.         NEXT #3 END
  136.     ENDWHILE
  137.     IF ERROR = "Y" THEN
  138.     WRITE "READY TO RE-INPUT BAD DATA"
  139.     SET V ERROR TO "N"
  140.       GOTO RETRY
  141.       ELSE
  142.       SET V TO/FROM TO GOOD
  143.       GOTO TEST1
  144.     LABEL GOOD
  145.     OUTPUT PRINTER
  146.     SET POINTER #1 EOF FOR STATEMNT
  147.     WHILE EOF = 0 THEN
  148.     SET V CODE TO ADD.CODE IN #1
  149.     PRINT NOTICE WHERE ADD.CODE = .CODE
  150.     NEXT #1 EOF
  151.     ENDWHILE
  152.     OUTPUT SCREEN
  153.     REMOVE TABLE STATEMNT
  154.     ENDIF
  155.       GOTO SELECTION
  156. LABEL 5
  157.   CLS
  158.   RETURN
  159.  
  160.  
  161.  
  162.  
  163.  
  164.  
  165.  
  166.  
  167.  
  168.  
  169.